home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKRNE.SBP < prev    next >
Encoding:
Text File  |  1990-06-01  |  1010 b   |  56 lines
  1. SBP
  2.   ╜   STKRNE
  3.   ╜   Client Telephone List
  4.   ╜   Last updated Jan 21, 90
  5.  
  6.   │ _ wrerror
  7.  hd1$ "Client Telephone List at "  ( Q,"mmm dd,yy")
  8.  hd12$ "Ref: STKRNE"
  9.  
  10. m1: 
  11.   ┴
  12.   } ┴
  13.   {
  14.   {@2;"Number of records:";@21;&15 ( X,"9999.")
  15.   Æ ┴
  16.  
  17.   ƒ
  18.   {@1;hd1$;@66;hd12$
  19.   {
  20.   {@2;"Client                    Location                Telephone           Hours"
  21.   {@2;"------------------------- ----------------------- ------------------- -----"
  22.   Æ ƒ
  23.  
  24.   ╔@2;&26Client.CLIENTS;&23Location.CLIENTS;@52;"(";&3Dialcode.COUNTRY;")";&16Telephone.CLIENTS;
  25.  &5GMT Zone_Min.COUNTRY
  26.   ╨Country.CLIENTS Name.COUNTRY
  27.  
  28. m2: 
  29.   íp$ "d" p
  30.  ╩ ╦ss14$
  31.  ╧ Ñ  ▀
  32.   Æ í
  33.  
  34. repeat: 
  35.   ┬ms3$,"",135,a%
  36.   ía% 0 p wrexit
  37.   íp$ "p" p ╣;
  38.   wm1
  39.  
  40. rexit: 
  41.   ä"menu"
  42.  
  43. rerror: ╜ On error
  44.  res% 0
  45.   í & 11 p
  46.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  47.   ^ í & 27 p
  48.  ┬ms11$,ms12$,100,a%:res% 2
  49.   ^
  50.  ┬ (( &),"",113,a%:res% 1
  51.   Æ í
  52.   íres% 1 p yrepeat 
  53.   íres% 2 p yrexit
  54.   É
  55.  
  56.